namespace eval ::Polymorph {
	StartTCL::Provide

	variable ::Polymorph::Spells
  array set ::Polymorph::Spells {
	 		  118 12939
	 	  12824 12939
	 	  12825 12939
	 	  12826 12939
	}
}



	proc ::Polymorph::OnCastPolymorph { to from spellid } {
		CastSpell $to $to $::Polymorph::Spells($spellid)
	}




proc ::Polymorph::Init { } {
	if { [ info exists "::StartTCL::VERSION" ] } {
		::Custom::AddSpellScript "::Polymorph::OnCastPolymorph" [ array names ::Polymorph::Spells ]
	} else {
		
	}
}

::Polymorph::Init